home *** CD-ROM | disk | FTP | other *** search
/ Publication 8 / Publication_08_1996_High-Tech_de_Side_B.d64 / scharfe wanda (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  20KB  |  555 lines
  1. 100 print"[147][154][142]bitte warten
  2. 110 [151]53281,6:[151]52,128:[151]56,128:[151]56334,0:[156]
  3. 120 [151]1,51:[129]i[178]0[164]2047:[151]32768[170]i,[194](53248[170]i):[130]
  4. 130 [151]1,55:[151]56334,1:[151]56578,63
  5. 140 [151]56576,197:[151]648,136:[151]53272,32
  6. 150 [129]i[178]33456[164]33463:[135]a:[151]i,a:[130]
  7. 160 [129]i[178]33464[164]33471:[135]a:[151]i,a:[130]
  8. 170 [129]i[178]33448[164]33455:[135]a:[151]i,a:[130]
  9. 180 [129]i[178]33440[164]33447:[135]a:[151]i,a:[130]
  10. 190 [137]7000
  11. 200 [151]v[170]0,0:[151]v[170]1,0:[151]v[170]21,1
  12. 210 [141]5680:[141]3680:[141]3710
  13. 220 [137]310
  14. 230 [141]5680
  15. 240 vo[178]54296:w[178]54276:a[178]54277:sr[178]54278:h[178]54273:l[178]54272
  16. 250 ph[178]54275:pl[178]54274:v[178]53248:[134]g$(52):[134]c(52):ds[178]0
  17. 260 oo[178]0
  18. 270 [141]3680
  19. 280 [141]3710
  20. 290 [151]v[170]29,0:[151]v[170]23,0:[151]v[170]21,1
  21. 300 [151]35832,12:[151]v[170]39,14:[129]n[178]0[164]62:[135]q:[151]33536[170]n,q:[130]
  22. 310 [129]x[178]0[164]160[169].5:[151]v[170]0,x:[151]v[170]1,200:[130]x:[151]v[170]29,1:[151]v[170]23,1
  23. 320 [151]vo,15:[129]x[178]1[164]100:[130]x
  24. 330 [129]x[178]200[164]0[169][171]1:[151]v[170]1,x:[130]x
  25. 340 [129]x[178]15[164]0[169][171]1:[151]vo,x:[130]x
  26. 350 [141]3680
  27. 360 [141]3750
  28. 370 [153]"":[129]x[178]1[164]4
  29. 380 [153]"..":[153]:[153]
  30. 390 [153]".."
  31. 400 [153]".."
  32. 410 [153]"."
  33. 420 [153]"."
  34. 430 [153]".."
  35. 440 [153]"."
  36. 450 [130]x
  37. 460 [153]".sys(NULL)"
  38. 470 [141]3680
  39. 480 [129]x[178]0[164]1000:[130]x
  40. 490 [151]v[170]29,0:[151]v[170]23,0:[141]3680
  41. 500 [141]3710:[151]53248,0
  42. 510 [151]v[170]21,1:[151]v[170]1,100:[129]x[178]0[164]255[169].5
  43. 520 [151]v[170]0,x:[130]:[129]x[178]255[164]100[169][171].5:[151]v[170]0,x:[130]
  44. 530 [129]x[178]100[164]255[169].5:[151]v[170]0,x:[130]:[141]3680
  45. 540 [129]x[178]1[164]1000:[130]x
  46. 550 [141]3520
  47. 560 [153]"sys*** fremder erbittet kontakt ***"
  48. 570 [129]x[178]0[164]300:[130]x:[153]"                                   "
  49. 580 [141]3680
  50. 590 [153]" druecke f1 zur kontaktaufnahme
  51. 600 ifpeek(197)=4then620
  52. 610 goto550
  53. 620 print"                                        "
  54. 630 forx=0to200:nextx:print"[158]hier ist raum aufklaerer brutus"
  55. 640 print"sicherheits pruefung...."
  56. 650 print"                                      [145]"
  57. 660 get gash$:ifgash$<>""then660
  58. 670 gosub3680:forx=0to800:nextx:input"wie heisst du erdling";c$
  59. 680 c$=left$(c$,9):forx=1to500:nextx
  60. 690 gosub3520:print"dies ist nicht dein tag, ";c$"               "
  61. 700 print"ich habe zur aufgabe jeden hier   "
  62. 710 print"eindringenden bloedmann zu killen.  "
  63. 720 print"deine einzige chance ist, mir einen"
  64. 730 print"kleinen gefallen zu tun ...."
  65. 740 print"wenn du ablehnst, mach ich dich    "
  66. 750 print"[145]einen kopf kuerzer ! ":print"                        "
  67. 760 print"so, tust du was ich sage ?(j/n)":gosub3680
  68. 770 geta$:ifa$=""then770
  69. 780 ifa$="j"then810
  70. 790 ifa$="n"then850
  71. 800 goto770
  72. 810 print"[147]eine weise entscheidung...           "
  73. 820 print"ich nehme dich auf den planeten  copus"
  74. 830 gosub3680:forx=1to2000:nextx:gosub3710:forx=255to150step-.5:pokev+0,x:next
  75. 840 forx=100to234:pokev+1,x:next:gosub3680:goto1010
  76. 850 print"[147]":poke53281,2:s=54272:forl=0to24:pokes+l,0:next
  77. 860 pokes+14,5:pokes+18,16:pokes+3,1:pokes+24,143:pokes+6,240:pokes+4,65
  78. 870 fr=5389:fort=1to250:fq=fr+peek(s+27)*3.5
  79. 880 hf=int(fq/256):lf=fq-hf*256:pokes+0,lf:pokes+1,hf:next:pokes+24,0
  80. 890 printtab(160)"du hast noch eine chance wenn du"
  81. 900 print"aus dem raum/zeit kontinuum ausbrichst."
  82. 910 print"du kommst zum anfang des grauens ":print"zurueck..."
  83. 920 print"druecke f1 zum neustart"
  84. 930 print"jede andere taste ist toetlich !!!"
  85. 940 ifpeek(197)=64then940
  86. 950 ifpeek(197)<>4then980
  87. 960 ifpeek(197)=4thengosub5810
  88. 970 goto200
  89. 980 print"[147]":pokevo,15:pokesr,240:pokew,33:forx=200to0step-1:pokeh,x
  90. 990 pokel,x:next:printtab(15)" k o t z  !":forx=0to4000:nextx
  91. 1000 pokev+21,0:poke53272,24:poke198,0:poke648,4:new
  92. 1010 gosub3750
  93. 1020 print"[147].."
  94. 1030 print".."
  95. 1040 printtab(60)".":printtab(20)"."
  96. 1050 printtab(10)".."
  97. 1060 printtab(10)"[158][209]       ."
  98. 1070 forx=1to6
  99. 1080 print"":printtab(22)".."
  100. 1090 print".."
  101. 1100 print".."
  102. 1110 print"..."
  103. 1120 print"..."
  104. 1130 print"..."
  105. 1140 print".."
  106. 1150 printtab(40)"..."
  107. 1160 print".."
  108. 1170 nextx
  109. 1180 print"[129][209].."
  110. 1190 print"...."
  111. 1200 print"....":gosub3680:gosub3710
  112. 1210 forx=234to100step-1:pokev+1,x:next:forx=150to255step.5:pokev+0,x:next
  113. 1220 gosub3680:print"[159]dies ist der planet copus"
  114. 1230 forx=0to999:next:gosub3520:print"[158]geh runter und finde das geheimniss
  115. 1240 [153]"sysdes lebens, des universums und
  116. 1250 print" a l l e s."
  117. 1260 print"druecke 'space' fuer weitere hinweise"
  118. 1270 gosub3680:gosub5080
  119. 1280 pokev+21,0
  120. 1290 gosub3520
  121. 1300 print"[147][158]dies ist die rache fuer 'i r r e r' !"
  122. 1310 print"suche die geheimnisumwobene wanda,
  123. 1320 [153]"- eine frau (typ mensch)- die als ein-"
  124. 1330 [153]"zige die geheimnisse kennt.
  125. 1340 print"es gibt (nur) einen weg, ihr dies"
  126. 1350 print"wissen zu entlocken...":gosub3680
  127. 1360 gosub5070
  128. 1370 gosub3520:print"[158][147]leider fand man den letzten mitwisser"
  129. 1380 print"wandas unter mysterioesen umstaenden auf"
  130. 1390 print"(platt unter einem bagger)
  131. 1400 [153]"allerdings starb er mit einem"
  132. 1410 [153]"laecheln auf den lippen...
  133. 1420 print"druecke 'space' fuer wandas
  134. 1430 [153]"intergalaktischem pass.":[141]3680
  135. 1440 [141]5080
  136. 1450 [153]"loadclrgalaktischer pass nr. d131167f":[141]3520
  137. 1460 [153]"name:       syswanda, die scharfe":[153]"a.k.a.:     sysjet-bike"
  138. 1470 [153]"alter:      sys  ???  "
  139. 1480 [153]"geschlecht: sysweibl."
  140. 1490 [153]"beruf:      syshostess"
  141. 1500 [153]"besondere
  142. 1510 print"kennzeichen:[158]super kurven und wissen"
  143. 1520 print"   um geheimniss des lebens,
  144. 1530 [153]"   des unversums und
  145. 1540 print"a l l e s ."
  146. 1550 print"lieblings"
  147. 1560 print"getraenk:   [158]pan-galactic brainwangler "
  148. 1570 print"anschrift:  [158]'zum stossenden bock',"
  149. 1580 print"          highsville, copus "
  150. 1590 print"druecke 'space' fuer details von
  151. 1600 [141]3680:[153]"highsville, copus....."
  152. 1610 [141]5080
  153. 1620 [141]3520:[153]"load":[153][163]5)"galktischer pass no. c00237f"
  154. 1630 [153][163]5)"(highsville - planet copus) "
  155. 1640 [153][163]5)"open--------------------------"
  156. 1650 [153]"sysindustrie - vergnuegung fuer raum-
  157. 1660 printtab(13)"schiff crews."
  158. 1670 print"waehrung - klebs"
  159. 1680 print"hohe todes rate - viel galaktisches
  160. 1690 [153]"personal dort vermisst !
  161. 1700 print"[159]dieser planet ist gefaehrlich fuer
  162. 1710 [153]"galaktisches personal!":[141]3680
  163. 1720 [141]5070
  164. 1730 [141]3520:[151]v[170]21,1:[151]v[170]1,100:[151]v[170]0,255
  165. 1740 [153]"loadsysmehr kann ich dir nicht mitteilen,
  166. 1750 print"druecke nun 'space' um teleporter"
  167. 1760 print"nach highsville zu starten.":gosub3680
  168. 1770 gosub5080
  169. 1780 print"[147]":pokev+21,0
  170. 1790 gosub3540
  171. 1800 print"[147]":gosub3680
  172. 1810 poke53281,15:ds=0
  173. 1820 print"du bist im highsville teleport center":dk=0
  174. 1830 print"der mann am transmitter moechte"
  175. 1840 print"100 klebs tvon dir haben."
  176. 1850 print"du hast keine klebs."
  177. 1860 print"da steht eine annehmbar huebsche, und"
  178. 1870 print"reich aussehende junge frau rum, die"
  179. 1880 print"sehr sympatisch ausssieht...
  180. 1890 [153]"da ist auch ein telespiel, ein paar
  181. 1900 print"freispiele sind noch drauf.
  182. 1910 [153]"auswahl:- a. frau anbetteln."
  183. 1920 [153],"b. telespiel machen."
  184. 1930 [153]"druecke 'a' oder 'b'...
  185. 1940 getr$:ifr$="a"then2040
  186. 1950 ifr$="b"then2220
  187. 1960 print"[144]wilkommen in highsville"
  188. 1970 foro=1to300:nexto
  189. 1980 print"                       ":forj=1to200:nextj
  190. 1990 goto1940
  191. 2000 gosub3520
  192. 2010 pokev+21,1:pokev+1,100:pokev+0,255:print"[158]du hast versagt, ";c$"!!!"
  193. 2020 print"ich kann dich nicht mehr gebrauchen !"
  194. 2030 gosub3680:forx=1to5000:nextx:goto850
  195. 2040 gosub4240:print"[147]hallo, cowboy, ich heisse sophie,"
  196. 2050 print"wilkomen in highsville"
  197. 2060 print"ein paar nette stunden gefaellig ?":print"hast du klebs??(j/n)"
  198. 2070 getsx$:ifsx$=""then2070
  199. 2080 ifsx$="n"then2120
  200. 2090 ifsx$="j"then2110
  201. 2100 goto2070
  202. 2110 print"[147]du luegst, du hast [145][145]";:goto2130
  203. 2120 print"[147]"
  204. 2130 gosub4240:print"keine klebs!!"
  205. 2140 print"was quatscht du mich an ohne  klebs???!!!"
  206. 2150 print"ich muss fuer eine grosse familie
  207. 2160 [153]"sorgen und du willst alles fuer lullu ?
  208. 2170 print"verdammtes erdlings schwein ohne klebs!"
  209. 2180 print"verpiss dich !!!!"
  210. 2190 gosub5070
  211. 2200 print"[147]nun ja,...wieder im teleporter raum"
  212. 2210 print"ich glaube fast...":forx=1to3000:nextx:print"[147]":goto1820
  213. 2220 gosub2950
  214. 2230 gosub4240:print"[147][158]gut gemacht ";c$:kl=900
  215. 2240 print"der mann nimmt seine 100 klebs,
  216. 2250 [153]"und du darfst nun weiter zur
  217. 2260 print"highsville hauptstrasse mit 900 klebs"
  218. 2270 print"nun finde das geheimniss des lebens,"
  219. 2280 print"des universums und a l l e s."
  220. 2290 print"viel glueck !"
  221. 2300 gosub5070
  222. 2310 gosub3790
  223. 2320 forx=0to300:nextx                
  224. 2330 gosub4240:print"[158]du siehst vier kneipen -
  225. 2340 [129]x[178]0[164]2000:[130]x:[139]kl[177]999[175]oo[178]0[167][141]5910
  226. 2350 [153]"die kneipen heissen folgendermassen:-":[153]:[153]
  227. 2360 [141]4240:[153]"owait = 'zum stossenden bock'           "
  228. 2370 [153]"zwait = lucky zaphod's kasino            "
  229. 2380 [153]"jwait = juicy lucy's bar                 "
  230. 2390 [153]"pwait = paddy o'spacey bar               "
  231. 2400 [153]"                                      "
  232. 2410 [153]"syswaehle o, z, j oder p...            "
  233. 2420 [139][194](197)[178]4[175]ds[178]1[167][141]5810:[137]1810
  234. 2430 [139][194](197)[178]64[167]2420
  235. 2440 [139][194](197)[178]4[175]ds[178]1[167][141]5810:[137]1810
  236. 2450 [139]kl[179]1[167]4040
  237. 2460 [139][194](197)[178]38[167]2510
  238. 2470 [139][194](197)[178]12[167]2920
  239. 2480 [139][194](197)[178]34[167]5120
  240. 2490 [139][194](197)[178]41[167]6230
  241. 2500 [137]2440
  242. 2510 [153]"load":[151]53281,15:[141]4240
  243. 2520 [153]"**zum stossenden bock**"
  244. 2530 [153]"-------------------":[141]3990
  245. 2540 [153]"eintrittspreis ist 500 klebs."
  246. 2550 [153]"moechtest du bezahlen ?"
  247. 2560 [153]"oder eine billigere kneipe suchen ?"
  248. 2570 [153]"druecke 'b' zum bezahlen,
  249. 2580 print"drueck 'n' zum abhauen
  250. 2590 [139][194](197)[178]64[167]2590
  251. 2600 [139][194](197)[178]28[167]2640
  252. 2610 [139][194](197)[178]39[167][141]3790:[137]2320
  253. 2620 [137]2590
  254. 2630 [137]2320
  255. 2640 [139]kl[179]500[167]4110
  256. 2650 [141]4240:kl[178]kl[171]500:[153]"load":[141]3990:[139]kl[179]1[167]4040
  257. 2660 [153]"sysdu bist im 'stossenden bock'
  258. 2670 print"das licht ist duester....":forx=0to1000:nextx:poke53281,11
  259. 2680 print"[158]eines der rumlungernden maedchen"
  260. 2690 print"kommt langsam auf dich zu......
  261. 2700 [129]x[178]0[164]2000:[130]x:[141]4240:[153]"sie sagt..."
  262. 2710 [153]"'hallo seemann - wie waers mit 'nem drink ?'
  263. 2720 print"druecke j oder n
  264. 2730 [161]dr$:[139]dr$[178]"n"[167]2840
  265. 2740 [139]dr$[178]"j"[167]2760
  266. 2750 [137]2730
  267. 2760 [141]4000
  268. 2770 [141]4240:[153]"oh screck, guck in deine taschen!
  269. 2780 gosub5070:gosub4240
  270. 2790 gosub3990:print"ich glaub, du bist fast
  271. 2800 [153]"pleite......"
  272. 2810 [129]x[178]0[164]4000:[130]x:[141]4240:[153]"und die weiber nehmen deine klebs!
  273. 2820 kl=0:forx=0to8000:nextx:gosub3790
  274. 2830 goto2330
  275. 2840 gosub4240:print"[147]das weib schreit entsetzlich...":forx=0to2000:nextx
  276. 2850 gosub4240:print"ein schlaeger erscheint...
  277. 2860 [153]"er sagt:-":[153]"'so was wie dich brauchen wir hier nicht -"
  278. 2870 [153]"erdling!!'
  279. 2880 print"du wurdest ganz unproblematisch
  280. 2890 [153]"vor die tuer gesetzt...
  281. 2900 forx=0to8000:nextx:gosub3790
  282. 2910 goto2330
  283. 2920 gosub4130
  284. 2930 goto2900
  285. 2940 rem**************game one***************
  286. 2950 print"[147]"
  287. 2960 pokevo,0:pokea,0:pokesr,0:pokew,0:pokeh,0:pokel,0
  288. 2970 gosub3240
  289. 2980 poke53280,11:poke53281,0:b=20:sc=60:sp=3:print"[147]":gosub3360
  290. 2990 forj=1to26:print:next
  291. 3000 rx=int(40*rnd(1)):poke35776+rx,86:poke56256+rx,int(rnd(1)*6)+1
  292. 3010 ifrnd(1)>.85thenry=int(rnd(1)*40):poke35776+ry,36
  293. 3020 poke56256+ry,int(rnd(1)*6)+1:poke35296+b,32:print
  294. 3030 ifpeek(197)=47thenifb>0thenb=b-1:goto3050
  295. 3040 ifpeek(197)=44thenifb<39thenb=b+1
  296. 3050 poke55776+b,8:poke35296+b,87:ifpeek(35336+b)=86then3080
  297. 3060 ifpeek(35336+b)=36then3180:ifsp>0then3000
  298. 3070 ifsp>0then3000:goto3150
  299. 3080 sp=sp-1:sc=sc-20:print"hab dich ! kredit";sp;"klebs";sc:gosub3370
  300. 3090 ifsp=0goto3480
  301. 3100 pokevo,15:pokea,140:pokesr,5:pokew,33:form=1to4:poke55776+b,m
  302. 3110 fort=200to50step-5:pokeh,t:pokel,t+20
  303. 3120 forq=0to5:next:next:next
  304. 3130 pokew,0:pokesr,0:pokea,0
  305. 3140 poke35336+b,32:poke55776+b,4:gosub3360:goto3070
  306. 3150 pokevo,0:pokea,0:pokesr,0:pokew,0:pokeh,0:pokel,0
  307. 3160 print:print"";tab(13);"klebs ";sc
  308. 3170 gosub5070
  309. 3180 sc=sc+50:print"";tab(13);"klebs:-";sc:ifsc>999then3440
  310. 3190 gosub3370:print""
  311. 3200 pokevo,15:pokea,128:pokesr,200
  312. 3210 pokew,33:fort=1to5:pokeb+55776,t
  313. 3220 pokeh,30:pokel,30:forq=1to50:next:pokeh,80:pokel,80:forq=1to50:next:next
  314. 3230 pokew,0:pokesr,0:pokea,0:gosub3360:goto3070
  315. 3240 gosub4240:print"[147]":poke53281,0:poke53280,0
  316. 3250 print"[158]dieses telespiel ist recht populaer
  317. 3260 [153]"in highsville, da es geld ausspuckt":[153]"gewinne (klebs)."
  318. 3270 [153]"open<sys links ":[153]">sys rechts
  319. 3280 print"treffe geld   $[158] bringt 50 klebs"
  320. 3290 print"treffe vampir [214][158] kostet 20 klebs"
  321. 3300 print"[158]ich zahle nur bei 1000 klebs":print"du hast 3 kredite"
  322. 3310 print"du hast 60 klebs zum start"
  323. 3320 print"gewinne 1000 klebs und sie sind dein"
  324. 3330 print"druecke eine taste...
  325. 3340 [139][194](197)[178]64[167]3340
  326. 3350 [142]
  327. 3360 [151]vo,12:[151]a,128:[151]sr,128:[151]w,129:[151]h,3:[151]l,2:[142]
  328. 3370 [151]vo,0:[151]a,0:[151]sr,0:[151]w,0:[151]h,0:[151]l,0:[142]
  329. 3380 [151]vo,15:[151]a,140:[151]sr,5:[151]w,17:[129]m[178]5[164]1[169][171]1:[151]55776[170]b,m
  330. 3390 [129]t[178]0[164]200[169]5:[151]h,t:[151]l,t[170]20
  331. 3400 [130]:[130]
  332. 3410 [151]w,0:[151]sr,0:[151]a,0
  333. 3420 [151]1504[170]b,32:[151]1544[170]b,32:[151]55776[170]b,4:[141]3360
  334. 3430 [153]"":[137]3070
  335. 3440 [153]"load":[141]3620
  336. 3450 [153]"jackpot !!!wait"
  337. 3460 [153]"nehme 1000 klebs !!":sc[178]1000:[141]3620
  338. 3470 [129]x[178]1[164]3000:[130]x:[142]
  339. 3480 [141]4240:[153]"loadsysoh, schreck.":[153]"etwas zu schwer, was?
  340. 3490 print"kein kredit mehr ueber
  341. 3500 [129]x[178]0[164]3000:[130]x:[153]"der mann kommt naeher...
  342. 3510 forx=0to2000:nextx:goto4040
  343. 3520 pokevo,15:pokea,96:pokesr,240:pokew,33:pokeh,40:pokel,100:return
  344. 3530 rem *************teleporter*********
  345. 3540 pokea,32:pokesr,255:pokea+7,32:pokesr+7,255:pokeh,17
  346. 3550 pokel,3:pokevo,15:pokew,17:pokew+7,33:pokeh+7,16
  347. 3560 pokel+7,3:pokeph,8:pokepl,8
  348. 3570 forx=1to15:print"teleporter aktiv
  349. 3580 [151]53281,x:[130]x:[151]53281,0
  350. 3590 [151]a,0:[151]sr,0:[151]a[170]7,0:[151]sr[170]7,0:[151]h,0:[151]l,0
  351. 3600 [151]vo,0:[151]w,0:[151]w[170]7,0:[151]h[170]7,0:[153]"load"
  352. 3610 [151]l[170]7,0:[151]ph,0:[151]pl,0:[142]
  353. 3620 [151]vo,0:[151]a,0:[151]sr,0:[151]w,0:[143]**********win sound********
  354. 3630 [151]vo,15:[151]a,140:[151]sr,5:[151]w,17
  355. 3640 [129]m[178]5[164]1[169][171]1:[151]55776[170]b,m
  356. 3650 [129]t[178]0[164]200[169]5:[151]h,t:[151]l,t
  357. 3660 [130]:[130]:[142]
  358. 3670 [143]**********zeroise sid**********
  359. 3680 [151]vo,0:[151]w,0:[151]a,0:[151]sr,0:[151]h,0
  360. 3690 [151]l,0:[151]ph,0:[151]pl,0:[142]
  361. 3700 [143]**********spaceship sound*********
  362. 3710 [151]vo,8:[151]a,32:[151]sr,255:[151]a[170]7,32:[151]sr[170]7,255:[151]h,17
  363. 3720 [151]l,3:[151]w,17:[151]w[170]7,17:[151]h[170]7,16
  364. 3730 [151]l[170]7,3:[151]ph,8:[151]pl,8:[142]
  365. 3740 [143]*********movement sound*********
  366. 3750 [151]a,32:[151]sr,255:[151]a[170]7,32:[151]sr[170]7,255:[151]h,17
  367. 3760 [151]l,3:[151]vo,15:[151]w,17:[151]w[170]7,33:[151]h[170]7,16
  368. 3770 [151]l[170]7,3:[151]ph,8:[151]pl,8:[142]
  369. 3780 [143]************highsville mainstreet************
  370. 3790 [151]53265,[194](53265)[175]239:[153]"load":[151]53281,0:[151]53280,0:z[178]33792
  371. 3800 [129]x[178]0[164]159:[151]35656[170]x,160:[130]x:[129]x[178]0[164]159:[151]56136[170]x,9:[130]x
  372. 3810 [151]1134[170]z,81:[151]55406,8
  373. 3820 cl[178]54272:[129]x[178]0[164]4:[151]35579[170]x,160:[130]x:[129]x[178]0[164]4:[151]1787[170]cl[170]x,12:[130]x
  374. 3830 [151]1827[170]z,160:[151]1827[170]cl,12:[151]1828[170]z,160:[151]1828[170]cl,12
  375. 3840 [151]1830[170]z,160:[151]1830[170]cl,12:[151]1831[170]z,160:[151]1831[170]cl,12
  376. 3850 [129]x[178]0[164]4:[151]35589[170]x,160:[130]x:[129]x[178]0[164]4:[151]1797[170]cl[170]x,10:[130]x
  377. 3860 [151]1837[170]z,160:[151]1838[170]z,160:[151]1840[170]z,160:[151]1841[170]z,160
  378. 3870 [151]1837[170]cl,10:[151]1838[170]cl,10:[151]1840[170]cl,10:[151]1841[170]cl,10
  379. 3880 [129]x[178]0[164]4:[151]35599[170]x,160:[130]x:[129]x[178]0[164]4:[151]1807[170]cl[170]x,13:[130]x
  380. 3890 [151]1847[170]z,160:[151]1848[170]z,160:[151]1850[170]z,160:[151]1851[170]z,160
  381. 3900 [151]1847[170]cl,13:[151]1848[170]cl,13:[151]1850[170]cl,13:[151]1851[170]cl,13
  382. 3910 [129]x[178]0[164]4:[151]35609[170]x,160:[130]x:[129]x[178]0[164]4:[151]1817[170]cl[170]x,4:[130]x
  383. 3920 [151]1857[170]z,160:[151]1858[170]z,160:[151]1860[170]z,160:[151]1861[170]z,160
  384. 3930 [151]1857[170]cl,4:[151]1858[170]cl,4:[151]1860[170]cl,4:[151]1861[170]cl,4
  385. 3940 [151]53265,[194](53265)[176]16:[153]""
  386. 3950 [153]"ozjpwait"
  387. 3960 [153]:[153]:[153]"highsville hauptstrasse
  388. 3970 gosub4270:forx=0to2000:nextx:return
  389. 3980 rem************print klebs************
  390. 3990 print"[145]            du hast";kl"            [157][157][157][157][157][157][157][157][157][157][157][157][157]klebs  ":return
  391. 4000 print"[147][158]sie sagt:-":print"du bist nett - ich nehme pan-"
  392. 4010 print"galactic brainwangler bitte"
  393. 4020 forx=0to3000:nextx:print"der barmann sagt:-"
  394. 4030 dr=kl+10:print"das macht";dr"klebs bitte ....":return
  395. 4040 gosub4240:poke53281,0:print"[147][158]du wurdest wegen landstreicherei
  396. 4050 [153]"verhaftet und wirst abgeschoben..."
  397. 4060 [153]"ich glaube brutus wird dies nicht"
  398. 4070 [153]"sehr moegen, wenn du zurueckkommst
  399. 4080 forx=0to6000:nextx:gosub3540
  400. 4090 print"[147]":goto2000
  401. 4100 rem**************not enough cash - to mainstreet******
  402. 4110 print"du hast zuwenig geld":forx=0to3000:nextx:gosub3790
  403. 4120 goto2310
  404. 4130 print"[147][158]":poke53281,0
  405. 4140 gosub4240:print"lucky zaphod's kasino"
  406. 4150 print"---------------------"
  407. 4160 print"du hast";kl" klebs"
  408. 4170 print"hier spielt man ein einfaches 'hoeher
  409. 4180 [153]"oder tiefer' kartennspiel mit 4 karten
  410. 4190 print"druecke 'h' fuer hoeher 't' fuer tiefer
  411. 4200 [141]5070
  412. 4210 [137]4280
  413. 4220 [153]"du bist pleite.. hau ab du sack!":[129]x[178]1[164]2000:[130]:[141]3790
  414. 4230 [137]2330
  415. 4240 [151]vo,0:[151]a,0:[151]sr,0:[151]h,0:[151]l,0:[151]w,0
  416. 4250 [151]vo,15:[151]a,32:[151]sr,240:[151]w,17:[151]h,40:[151]l,200:[129]x[178]0[164]200
  417. 4260 [130]x:[151]vo,0:[151]a,0:[151]sr,0:[151]w,0:[151]h,0:[151]l,0:[142]
  418. 4270 [153]"klebs:-       cmdcmdcmdcmdcmdcmd";kl:[142]
  419. 4280 [153]"load":[151]vo,0:[151]53281,5:cu[178]0:bt%[178]0:[141]4270:[141]4950
  420. 4290 [141]4660
  421. 4300 [129]j[178]0[164]3:[129]i[178]1[164]13:c(i[170]j[172]13)[178]i:g$(i[170]j[172]13)[178]"stopatn"
  422. 4310 [139]j[178]1[167]g$(i[170]j[172]13)[178]"(NULL)"
  423. 4320 [139]j[178]2[167]g$(i[170]j[172]13)[178]"stop(NULL)"
  424. 4330 [139]j[178]3[167]g$(i[170]j[172]13)[178]"(NULL)"
  425. 4340 [130]i,j
  426. 4350 [141]4660:[151]vo,15:[151]sr,240:[151]w,17:[151]h,34:[151]l,75
  427. 4360 [153]"klebs:-      cmdcmdcmdcmdcmd";kl
  428. 4370 [141]4870
  429. 4380 [141]4660:cu[178]cu[170]1
  430. 4390 [129]i[178]1[164]4
  431. 4400 p[178][181]([187](1)[172]52[170]1):[139]c(p)[178]0[167]4400
  432. 4410 n1[178]n:n$[178][196](c(p)):n[178]c(p)
  433. 4420 [139]c(p)[178]1[167]n$[178]" a"
  434. 4430 [139]c(p)[178]11[167]n$[178]" j"
  435. 4440 [139]c(p)[178]12[167]n$[178]" q"
  436. 4450 [139]c(p)[178]13[167]n$[178]" k"
  437. 4460 [139]c(p)[178]10[167]n$[178]"10"
  438. 4470 c(p)[178]0:[153]"     stop**lucky zaphod's card tablestop**"
  439. 4480 [139]i[178]1[167]4510
  440. 4490 [153]"hoeher oder tiefer ?"
  441. 4500 [161]a$:[139]a$[179][177]"h"[175]a$[179][177]"t"[167]4490
  442. 4510 [153]"";:[139]i[178]2[167][153]"";
  443. 4520 [139]i[178]3[167][153]"";
  444. 4530 [139]i[178]4[167][153]"";
  445. 4540 [153]"andandandandandandandcmdcmdcmdcmdcmdcmdcmdsgn     +cmdcmdcmdcmdcmdcmdcmdsgn     +cmdcmdcmdcmdcmdcmdcmdsgn     +";
  446. 4550 [153]"cmdcmdcmdcmdcmdcmdcmdsgn     +cmdcmdcmdcmdcmdcmdcmdsgn     +cmdcmdcmdcmdcmdcmdcmdsgn     +cmdcmdcmdcmdcmdcmdcmdsgn";
  447. 4560 [153]"     +cmdcmdcmdcmdcmdcmdcmdusrusrusrusrusrusrusr"
  448. 4570 [153]"";:[139]i[178]2[167][153]"";
  449. 4580 [139]i[178]3[167][153]"";
  450. 4590 [139]i[178]4[167][153]"";
  451. 4600 [153]"";n$;:[153]"";g$(p);:[153]"";n$
  452. 4610 [141]4660:[151]vo,15:[151]sr,240:[151]w,33:[151]h,6:[151]l,206
  453. 4620 [129]z[178]1[164]200:[130]:[141]4660
  454. 4630 [139]a$[178]"h"[175]n1[177]n[167]4780
  455. 4640 [139]a$[178]"t"[175]n1[179]n[167]4780
  456. 4650 [137]4670
  457. 4660 [151]vo,0:[151]sr,0:[151]w,0:[151]h,0:[151]l,0:[142]
  458. 4670 [129]j[178]1[164]300:[130]j,i:[141]4660:[151]vo,15:[151]sr,240:[151]l,206:[151]w,17
  459. 4680 [129]i[178]1[164]244[169]2:[151]h,i:[130]:[141]4660
  460. 4690 [153]"du gewinnst";bt%;"klebs":kl[178]kl[170]bt%:[141]3620
  461. 4700 [153]"klebs:-        cmdcmdcmdcmdcmdcmdcmd";kl:[141]4910
  462. 4710 [141]4240:[153]"stopweiter ???"
  463. 4720 [161]a$:[139]a$[178]"n"[167]4920
  464. 4730 [139]a$[179][177]"j"[167]4720
  465. 4740 [141]4950:[139][187](1)[179].5[167]4760
  466. 4750 [161]a$:[139]a$[178]"n"[167]4760
  467. 4760 [139]cu[177]9[167]4300
  468. 4770 [137]4350
  469. 4780 [141]4660
  470. 4790 [151]v,15:[151]sr,240:[151]w,17:[151]l,200:[129]i[178]244[164]1[169][171]2:[151]h,i:[130]
  471. 4800 [153]"pech.. du verlierst";bt%;"klebs!!":kl[178]kl[171]bt%
  472. 4810 [141]4660:[153]"klebs:-        cmdcmdcmdcmdcmdcmdcmd";kl:[141]4910
  473. 4820 [139]kl[179][178]0[167][153]"loaddu bist pleite !!":[129]x[178]1[164]2000:[130]x:[137]4920
  474. 4830 [141]4240:[153]"stopweiter ???"
  475. 4840 [161]a$:[139]a$[178]"j"[167][141]4950:[137]4760
  476. 4850 [139]a$[179][177]"n"[167]4840
  477. 4860 [137]4920
  478. 4870 [153]"":[129]i[178]1[164]19
  479. 4880 [153]"                                      ";
  480. 4890 [130]
  481. 4900 [142]
  482. 4910 [153]"                    ";:[142]
  483. 4920 [141]4240:[153]"load":[153]"ab zur hauptstrasse dann.."
  484. 4930 [141]4270
  485. 4940 [129]x[178]1[164]500:[130]x:[142]
  486. 4950 [153]"                                   ":[153]"onon"
  487. 4960 bt$[178]"":bt%[178]0:[141]4240:[133]"stopwieviel setzt du        cmdcmdcmdcmdcmdcmdcmdcmd ";bt$
  488. 4970 [161]gash$:[139]gash$[179][177]""[167]4970
  489. 4980 bt$[178][200](bt$,4)
  490. 4990 [139][197](bt$)[178]0[167][153]"loadklebs:-";kl:[137]4950
  491. 5000 bt%[178][197](bt$)
  492. 5010 [139](bt%[179]1)[176](bt%[177]kl)[167][153]"loadklebs:-";kl:[137]4950
  493. 5020 [141]4240:[153]"du setzt";bt%
  494. 5030 [153]"                                   "
  495. 5040 [129]x[178]0[164]1000:[130]x:[142]
  496. 5050 [153]"zu wenig.....ab auf die strasse":[142]
  497. 5060 [143]**********spce-bar activ.********
  498. 5070 [153]"druecke 'space' fuer weiter"
  499. 5080 [161]a$:[139]a$[179][177]""[167]5080
  500. 5090 [161]a$:[139]a$[179][177][199](32)[167]5090
  501. 5100 [142]
  502. 5110 [143]****************juicy lucy's****************
  503. 5120 [141]4240:[153]"load":[151]53281,10:[153]"stopjuicy lucy's"
  504. 5130 [153]"------------"
  505. 5140 [153]"du hast ";kl"klebs"
  506. 5150 [153]"du siehts scharfe maedchen...."
  507. 5160 [153]"eine anzusprechen kostet dich 100 klebs...
  508. 5170 print"die maedchen haben abzeichen mit nummern
  509. 5180 [153]"welche moechtest du anquatschen ?"
  510. 5190 [153]"waehle 1 bis 4"
  511. 5200 [139][194](197)[178]64[167]5200
  512. 5210 [139][194](197)[178]56[167]gl$[178]"lil"
  513. 5220 [139][194](197)[178]59[167]gl$[178]"fifi"
  514. 5230 [139][194](197)[178]8[167]gl$[178]"barbi"
  515. 5240 [139][194](197)[178]11[167]gl$[178]"lulu"
  516. 5250 [139]kl[179]100[167][137]4110
  517. 5260 [141]4240:kl[178]kl[171]100:[153]"loadhigh, ich heisse ";gl$
  518. 5270 [153]"brutus sagte ich soll dir helfen, ";c$
  519. 5280 [153]"ich kann dich zu wanda bringen fuer
  520. 5290 print"nur 2000 klebs !"
  521. 5300 print"ich sehe du hast";kl;" klebs"
  522. 5310 ifkl<2000then5340
  523. 5320 print"so, ich nehme 2000 klebs und du kommst.."
  524. 5330 gosub5070:goto5370
  525. 5340 forx=0to1000:nextx:gosub4240:print"du hast zuwenig...hau ab!!!
  526. 5350 [129]x[178]0[164]6000:[130]x:[141]3790
  527. 5360 [137]2330
  528. 5370 [141]3620:[129]x[178]0[164]1000:[130]x
  529. 5380 [141]4240:[153]"load";gl$;" nimmt dich mit in eine
  530. 5390 print"dunkle einfahrt....":gosub5070
  531. 5400 gosub4240:print"[147]vor einer wendeltreppe haelt sie an"
  532. 5410 print"und deutet nach oben. du gehst..."
  533. 5420 forx=0to2000:nextx:gosub4240:print"du kommst in einen raum
  534. 5430 [153]"ueber dem 'stossenden bock'
  535. 5440 gosub5070
  536. 5450 gosub4240:print"[147]du siehts eine staunende frau...."
  537. 5460 forx=0to2000:nextx:gosub4240:print"";gl$;" sagt:-"
  538. 5470 print"wanda, dies ist ";c$
  539. 5480 print"er sucht das geheimnis des lebens,
  540. 5490 [153]"des universums, und a l l e s."
  541. 5500 [141]5070
  542. 5510 [141]4240:[153]"loadwanda sagt:-"
  543. 5520 [153]"so, ";c$
  544. 5530 [153]"du suchst das geheimnis des lebens":[153]"usw."
  545. 5540 [129]x[178]0[164]2000:[130]:[141]4240
  546. 5550 [153]"du kommst mit nur";kl
  547. 5560 [153]"klebs und glaubst ich sags dir ???!!"
  548. 5570 [153]"du weisst es nun !!
  549. 5580 print"verpiss dich erdling
  550. 5590 [141]5070
  551. 5600 [141]4240:[153]"loadder rausschmeisser kommt...":[129]x[178]0[164]1500:[130]x
  552. 5610 [141]4240:[153]"er schaut grimmig..."
  553. 5620 [129]x[178]0[164]1000:[130]x:[141]4240
  554. 5630 [153]"leide
  555.